"! Info:
An N-sided object.
Examples:

"
Object subclass: Polygon [
| sides length |
<category: 'Library-Drawing'>
"! "
drawWith: robot [
sides timesRepeat: [
	robot fwd: length.
	robot right: (360 / sides).
]
]

]

"! "
MetaObject subclass: MetaPolygon [
<category: 'Library-Drawing'>
"! "
new: sides size: side [
|p|
p := super new.
self in: p at: 1 put: sides.
self in: p at: 2 put: side.
^ p.
]

]

